VBʵִ˹ܣ
1½һVḄһFormFrmSplash)Ӧóķ棬һģ飨Module1
2FrmSplashһʱӿؼ(Timer1)IntervalΪ1000
3Timer_click()¼м´룺

	Private Sub Timer1_Timer()
	If i >= 3 Then
	    Unload frmsplash
	    Exit Sub
	End If
	i = i + 1
	End Sub

4Module1м´룺

	Sub main()
	    frmsplash.Show
	    Dim a As Double
	    a = Shell("C:\MapInfo\Professional\mapinfow.exe -nosplash C:\MapInfo\Professional\1.mbx", vbNormalFocus)
	End Sub